home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-06
/
pmail235.zip
/
CHARSET.ZIP
/
PMALTEXT.SRC
< prev
next >
Wrap
Text File
|
1992-09-07
|
5KB
|
226 lines
%%* [ Lines beginning with '%%*' are comments ]
%%*
%%* Sample remapping file for PMail/PC's SMTP
%%* translation table and PostScript headers.
%%* (c) 1992, David Harris, All Rights Reserved.
%%*
%%* Compile this file using PMail's TCOM text
%%* resource compiler using the command
%%*
%%* TCOM PMALTEXT.SRC FOO PMALTEXT.DAT
%%*
%%* then copy the resulting PMALTEXT.DAT file
%%* into the same directory as PMAIL.EXE.
%%*
%% TEXT_SMTP_TABLE, 0, SMTP translation table.
ÇC üue ée âa äae àa åa çc êe ëe èe ïi îi ìi ÄAE ÅA
ÉE æee ÆAE ôo öoe òo ûu ùu ÿy ÖOE ÜUE ¢c £stlg ¥yen
₧peseta ƒflorin áa íi óo úu ñn ÑN ªa ºo ¿? ⌐+ ¬+
½.5 ¼.25 ¡! «<< »>> │| ┤| ╡| ╢| ╖+ ╕+ ╣| ║| ╗+ ╝+
╜+ ╛+ ┐+ └+ ┴- ┬- ├| ─- ┼+ ╞| ╟| ╚+ ╔+ ╩- ╦- ╠| ═-
╬+ ╧- ╨- ╤- ╥- ╙+ ╘+ ╒+ ╓+ ╫+ ╪+ ┘+ ┌+ αa ßsz πpi
ΣSigma σRho τTau ΘTheta ΩOmega δdelta φo εEpsilon
≡= ±+/- ≥>= ≤<= ÷/ ∙o ·. √sqrt ⁿ^n ²^2
%%*
%%* The following two entries are PMail's PostScript
%%* headers. Be aware that the %% required to indicate
%%* a PostScript header string must be entered in this
%%* file as \%% to stop TCOM from regarding it as an
%%* end of section. The \ will be stripped out.
%%*
%%* The first entry is the PostScript PMail uses
%%* to create the banner page (if any).
%%*
%% PR_PS_BANNER, 0, PostScript Banner page.
%!PS-Adobe-2.0
\%%Creator:Pmail233
\%%EndComments
save
newpath
144 425 moveto
0 162 rlineto
340 0 rlineto
0 -162 rlineto
closepath
1 setlinewidth
stroke
/Helvetica-Bold findfont 24 scalefont setfont
240 605 moveto
(Banner Page) show
/Times-Italic findfont 18 scalefont setfont
265 630 moveto
(Mail Printout) show
180 540 moveto
(User:) show
180 504 moveto
(Date:) show
180 468 moveto
(From:) show
/Times-Roman findfont 18 scalefont setfont
240 540 moveto
(~u) show
240 504 moveto
(~d) show
240 468 moveto
(~f) show
showpage restore
%%*
%%* The next entry is the Prep header PMail uses
%%* when printing messages to PostScript printers.
%%*
%% PR_PS_HEADER, 0, PostScript header.
%!PS-Adobe-2.0
\%%Creator:Pmail233
\%%EndComments
/reencsmalldict 12 dict def
/ReEncodeSmall
{ reencsmalldict begin
/newcodesandnames exch def
/newfontname exch def
/basefontname exch def
/basefontdict basefontname findfont def
/newfont basefontdict maxlength dict def
basefontdict
{ exch dup /FID ne
{ dup /Encoding eq
{ exch dup length array copy
newfont 3 1 roll put }
{ exch newfont 3 1 roll put }
ifelse
}
{ pop pop }
ifelse
} forall
newfont /FontName newfontname put
newcodesandnames aload pop
newcodesandnames length 2 idiv
{ newfont /Encoding get 3 1 roll put }
repeat
newfontname newfont definefont pop
end
} def
/pcvec [
128 /Ccedilla
129 /udieresis
130 /eacute
131 /acircumflex
132 /adieresis
133 /agrave
134 /aring
135 /ccedilla
136 /ecircumflex
137 /edieresis
138 /egrave
139 /idieresis
140 /icircumflex
141 /igrave
142 /Adieresis
143 /Aring
144 /Eacute
145 /ae
146 /AE
147 /ocircumflex
148 /odieresis
149 /ograve
150 /ucircumflex
151 /ugrave
152 /ydieresis
153 /Odieresis
154 /Udieresis
155 /cent
156 /sterling
157 /yen
159 /florin
160 /aacute
161 /iacute
162 /oacute
163 /uacute
164 /ntilde
165 /Ntilde
166 /ordfeminine
167 /ordmasculine
168 /questiondown
173 /exclamdown
174 /guillemotleft
175 /guillemotright
179 /bar
180 /plus
181 /plus
182 /plus
183 /plus
184 /plus
185 /plus
186 /bar
187 /plus
188 /plus
189 /plus
190 /plus
191 /plus
192 /plus
193 /plus
194 /plus
195 /plus
196 /endash
197 /plus
198 /plus
199 /plus
200 /plus
201 /plus
202 /plus
203 /plus
204 /plus
205 /endash
206 /plus
207 /plus
208 /plus
209 /plus
210 /plus
211 /plus
212 /plus
213 /plus
214 /plus
215 /plus
216 /plus
217 /plus
218 /plus
225 /germandbls
240 /equal
248 /ring
249 /bullet
250 /dotaccent
] def
/leftmargin { 40 } bind def
/bot { 54 } bind def /top { } bind def
/cw { 40 } bind def
/xtab
{currentpoint exch dup cvi
leftmargin cvi sub cvi
cw cvi mod sub
cw add
exch moveto
} bind def
/ptsize { 12 } bind def /lead { 12 } bind def
/F { findfont exch scalefont setfont } bind def
/newline {
currentpoint exch pop lead sub
dup bot lt {
pop showpage restore save
top
} if
leftmargin exch moveto
} bind def
\%%Endprolog
\%%BeginSetup
/| /|-PC pcvec
ReEncodeSmall
ptsize /|-PC F
save
leftmargin top moveto
\%%EndSetup
%%
%%*